function plotComponents( compnumber, smoothed, OUT_EEG, amb_actdata, unamb_actdata )

if smoothed == true
figure;
plot(OUT_EEG.times(1500:3620),GaussianSmooth(unamb_actdata(compnumber,1500:3620)',20),'r'); hold on;
plot(OUT_EEG.times(1500:3620),GaussianSmooth(amb_actdata(compnumber,1500:3620)',20),'b');
title ([ 'Subject CW - SphereResponses - Comparison component ' cell2mat({mat2str(compnumber)}) ' of Unambiguous (red) and Ambiguous (blue) - Smoothed'])
xlim ([-1500 1500]);

else
figure;
plot(OUT_EEG.times(1500:3620),unamb_actdata(compnumber,1500:3620),'r'); hold on;
plot(OUT_EEG.times(1500:3620),amb_actdata(compnumber,1500:3620),'b');
title ([ 'Subject CW - SphereResponses - Comparison component ' cell2mat({mat2str(compnumber)}) ' of Unambiguous (red) and Ambiguous (blue)'])
xlim ([-1500 1500]);
end

% figure;
% plot(OUT_EEG.times,unamb_actdata(compnumber,:),'r'); hold on;
% plot(OUT_EEG.times,amb_actdata(compnumber,:),'b');
% title ([ 'Subject CW - SphereResponses - Comparison component ' cell2mat({mat2str(compnumber)}) ' of Unambiguous (red) and Ambiguous (blue)'])
%  xlim ([-800 200])
end